﻿<!--#include file="h.asp"--><%
'
'	七色虎建站系统
'	社区监狱页面
'	2012.9.17


Sub main	
	checkLogin()'验证登录
	Dim a,userid,text,title,count,body_,userStatus
	Dim prisonIn,prisonWhy,prisonOut
	hu.title = "社区监狱"
	body_ = "[div=nav]-"&hu.url("?aid=index","首页")&"-"&hu.url("bbs_user.asp","会员中心")&"-社区监狱[/div]"
	a=getN("a", 0)
	userid=user_array(0)
	If a=0 Then
		'显示当前关押的坏人
		body_ = body_ & ""
	Elseif a=1 Then
		'显示自己的服刑信息
		userStatus=user_array(4)
		If ifStatusNormal(userStatus)=False Then
			Set rs=hu.conn("select top 1 savetime,remark,days from 74hu_prison where status=0 and userid="&userid)
			If Not rs.eof Then
				prisonIn = rs("savetime")
				prisonWhy = rs("remark")
				prisonOut = dateadd("d", rs("days"), prisonIn)
				body_ = body_ & "入狱时间："&prisonIn&"<br/>出狱时间："&prisonOut&"<br/>入狱原因："&nowml(prisonWhy)&"<br/>"
				If time_now>prisonOut Then
					body_ = body_ & hu.url("bbs_prison.asp?a=11", "申请出狱")
				Else
					body_ = body_ & "刑期未满，不能申请出狱"
				End If
			Else
				body_ = body_ & "入狱情况不详"
			End If
		Else
			body_ = body_ & "监狱四处阴森森的，好多坏人，没事不要到这里来"
		End If
	Elseif a=11 Then
		'申请出狱
		userStatus=user_array(4)
		If ifStatusNormal(userStatus)=False Then
			Set rs=hu.conn("select top 1 id,savetime,days from 74hu_prison where status=0 and userid="&userid)
			If Not rs.eof Then
				prisonOut = dateadd("d", rs("days"), rs("savetime"))
				If time_now>prisonOut Then
					hu.conn("update 74hu_user set status=0 where id="&userid)
					hu.conn("update 74hu_prison set status=1 where id="&rs("id"))
					body_ = body_ & "出狱成功！出来后就不要再做坏事了"
				Else
					body_ = body_ & "刑期未满，不能申请出狱"
				End If
			Else
				body_ = body_ & "入狱情况不详，请联系管理员"
			End If
		Else
			body_ = body_ & "监狱四处阴森森的，好多坏人，没事不要到这里来"
		End If
	Else
		body_ = body_ & ""
	End If
	hu.body = comUbb(body_)
End Sub

%>